home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / 123 directory (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  48 lines
  1. 5 dimc$(2,99)
  2. 7 printchr$(147)
  3. 10 fori=0to2:forj=0to99:c$(i,j)="":nextj,i
  4. 20 print"how many disks(1-3):"
  5. 21 print"x to return to loadstar"
  6. 22 getn$:ifn$="" then22
  7. 23 if n$="x" then t$="n" : goto 370
  8. 24 n=val(n$)
  9. 25 ifn<1orn>3then20
  10. 30 fori=0ton-1:l=0:print
  11. 40 print"insert disk#";i+1
  12. 50 print"hit any key when ready!"
  13. 60 getz$:ifz$=""then60
  14. 70 open1,8,0,"$0":n$=chr$(0)
  15. 80 get#1,a$,a$
  16. 85 get#1,a$,a$
  17. 90 ifa$=""then130
  18. 100 get#1,a$,b$:x=asc(a$+n$)+asc(b$+n$)*256:c$(i,l)=str$(x)
  19. 110 get#1,a$:ifa$=chr$(34)then110
  20. 120 ifa$=""thenc$(i,l)=mid$(c$(i,l),1,26):l=l+1:goto85
  21. 125 c$(i,l)=c$(i,l)+a$:goto110
  22. 130 close1:c$(i,l)="xxx":nexti
  23. 150 print"ready printer and press a key"
  24. 160 gett$:ift$="" then 160
  25. 200 open5,4:a1=0:a2=0:a3=0:l=0
  26. 201 ifn=1thenprint#5,c$(0,l):l=l+1:goto210
  27. 202 ifn=2thenprint#5,c$(0,l);chr$(146)spc(2)c$(1,l):l=l+1:goto210
  28. 205 print#5,c$(0,l);chr$(146)spc(2)c$(1,l);chr$(146)spc(2)c$(2,l):l=l+1
  29. 210 ifa1=1orc$(0,l)="xxx"thena1=1:print#5,tab(26);:goto250
  30. 240 print#5,c$(0,l);
  31. 250 ifn=1thenifa1=1thenprint#5:close5:goto340
  32. 255 ifn=1thenl=l+1:print#5:goto210
  33. 260 ifa2=1orc$(1,l)="xxx"thena2=1:print#5,tab(26);:goto280
  34. 270 ifa1=1thenprint#5,c$(1,l);:goto280
  35. 275 print#5,tab(26-len(c$(0,l)));c$(1,l);
  36. 280 ifn=2thenifa1=1anda2=1thenprint#5:close5:goto340
  37. 290 ifn=2thenl=l+1:print#5:goto210
  38. 300 ifa3=1orc$(2,l)="xxx"thena3=1:print#5:goto320
  39. 310 ifa2=1thenprint#5,c$(2,l):goto320
  40. 315 print#5,tab(26-len(c$(1,l)));c$(2,l)
  41. 320 ifa1=1anda2=1anda3=1thenprint#5:close5:goto340
  42. 330 l=l+1:goto210
  43. 340 print"[147]go again?"
  44. 350 gett$:ift$="" then350
  45. 360 ift$="y"thenrun
  46. 370 ift$="n" then load"hello connect",8
  47. 380 goto350
  48.